﻿Public Class profesor
    Inherits persona
    'clase hija de persona
    Private titulo As String
    Private sueldo As Integer

    Sub New(ByVal rut As String, ByVal nombre As String, ByVal sexo As String, ByVal titulo As String, ByVal sueldo As Integer)
        MyBase.New(rut, nombre, sexo)
        Me.titulo = titulo
        Me.sueldo = sueldo
    End Sub

    Sub modificaralumno(ByVal rut As String, ByVal nombre As String, ByVal sexo As String, ByVal titulo As String, ByVal sueldo As Integer)
        MyBase.modificar(rut, nombre, sexo)
        Me.titulo = titulo
        Me.sueldo = sueldo
    End Sub

    Public Function detallealumno() As String
        MyBase.detalle()
        Return detalle() & " " & titulo & " " & sueldo
    End Function

    Public Function gettitulo() As String
        Return titulo
    End Function

    Public Function getsueldo() As Integer
        Return sueldo
    End Function

End Class
